; PROGRAM: EHOFF
; VERSION: 0.1
; WRITTEN: Bruce McIntosh
;
; This is a VERY primitive, quick-and-dirty utility to shut off the
; error handlers under ZCPR3.3.  I wrote it becuase I couldn't get
; ERRORX to function under ZCPR3.3.  It's actually the first real,
; useful program I've written for my micro (bring out the party
; favors and celebrate *grin* )!

; This program is public domain.  Do whatever you like with it.
;
	org	100h              ;absolute load at 100h
;
ehoff	jp	start
	db	'Z3ENV'           ;Get ZCPR3.3 to feed me the address of 
        db	1                 ; the external environment descriptor
env	defw	0F600h            ; and put it here.
;
start	ld	hl,(env)          ;get address of environment descriptor
	ld	de,0022h          ;offset into E.D. for address of Z3MSG
	add	hl,de             ;point to address of Z3MSG
	ld	e,(hl)            ;get lo byte of Z3MSG address
	inc	hl                ;point to hi byte of Z3MSG address
	ld	d,(hl)            ;get hi byte of Z3MSG address
	ex	de,hl             ;put address of Z3MSG into HL
	ld	de,0010h          ;offset into Z3MSG for er. hand. cmd
	add	hl,de             ;point to error handler command
	ld	(hl),00h          ;zero out the first byte (shut off)
	jp	0000h             ;all done, bail out to warm boot
;	
	end	ehoff
